home *** CD-ROM | disk | FTP | other *** search
/ Workbench Design / WB Collection.iso / workbench werkzeuge / disk & file tools / catchdisk / deutsch / install < prev    next >
Text File  |  1996-04-07  |  4KB  |  111 lines
  1. ; Installation program for the Commodore's Installer utility
  2.  
  3. (set local-help (cat "Wenn Sie \"Ja\" auswählen, so wird CatchDisk auf"
  4.                                      " Italienisch erscheinen.\nWenn Sie \"Nein\" anwählen, so wird"
  5.                                          " CatchDisk auf Englisch arbeiten.\nFalls Ihre Standardsprache"
  6.                                          " nicht auf 'deutsch' eingestellt ist, so werden trotzdem "
  7.                                          "alle Nachrichten auf Englisch erscheinen."))
  8.  
  9. (complete 0)
  10.  
  11. (if (exists "L:WBStart-Handler")
  12.         ((set ver (/ (getversion "L:WBStart-Handler") 65536))
  13.      (set rev (- (getversion "L:WBStart-Handler") (* 65536 ver)))
  14.      (if (< ver 2)
  15.          (if (< rev 4)
  16.            (message (cat "Achtung: Sie müssen WBStart-Handler "
  17.                                               "v1.4 oder höher installiert haben, "
  18.                                               "um CatchDisk zu benutzen (siehe \"Liesmich\"-Datei).")
  19.              )
  20.                  )
  21.      )
  22.     )
  23.          (message (cat "Achtung: Sie müssen WBStart-Handler "
  24.                                             "v1.4 oder höher installiert haben, "
  25.                                             "um CatchDisk zu benutzen (siehe \"Liesmich\"-Datei).")
  26.     )
  27. )
  28.  
  29. (set name
  30.         (askdir
  31.                 (prompt "Wohin soll CatchDisk installiert werden ?")
  32.                 (help @askdir-help)
  33.                 (default "SYS:WBStartup")
  34.         )
  35. )
  36.  
  37. (set @default-dest name)
  38.  
  39. (if (exists (tackon name "CatchDisk.info"))
  40.         (message (cat "Achtung: die Tooltypes der alten Version werden verloren "
  41.                                 "gehen: bitte sichern Sie diese, bevor Sie fortfahren.")
  42.         )
  43. )
  44.  
  45. (set vernum (/ (getversion) 65536))   ; se version >37: c'è localizzazione
  46.  
  47. (if (> vernum 37)
  48.         (set local
  49.                 (askbool
  50.                         (prompt "Soll die Hilfsdatei für die deutschen Bildschirmtexte installiert werden ?")
  51.                         (help local-help)
  52.                         (default 0)
  53.                 )
  54.         )
  55.         (set local 0)
  56. )
  57.  
  58. (if local
  59.         (if (and (= @user-level 2) (exists "LOCALE:catalogs/deutsch"))
  60.                 (set sysdest
  61.                         (askchoice
  62.                                 (prompt "wohin soll die Datei mit den deutschen Texten installiert werden ?")
  63.                                 (help @askchoice-help)
  64.                                 (choices "in das gleiche Verzeichnis wie CatchDisk" "nach LOCALE:")
  65.                                 (default 1)
  66.                         )
  67.                 )
  68.                 (if (= name "SYS:WBStartup")
  69.                         (set sysdest 1)
  70.                         (set sysdest 0)
  71.                 )
  72.         )
  73. )
  74.  
  75. (if (not (exists "LOCALE:catalogs/deutsch"))
  76.         (set sysdest 0)
  77. )
  78.  
  79. (complete 50)
  80.  
  81. (copyfiles
  82.         (infos)
  83.         (source "/CatchDisk")
  84.     (dest name)
  85. )
  86.  
  87. (tooltype
  88.     (dest (tackon name "CatchDisk"))
  89.         (noposition)
  90. )
  91.  
  92. (complete 80)
  93.  
  94. (if local
  95.         (if sysdest
  96.                 (copyfiles
  97.                         (source "/catalogs/deutsch/CatchDisk.catalog")
  98.                         (dest "LOCALE:catalogs/deutsch")
  99.                 )
  100.         (
  101.                         (makedir (tackon name "catalogs"))
  102.                         (copyfiles
  103.                                 (source "/catalogs/deutsch/CatchDisk.catalog")
  104.                                 (dest (tackon name "catalogs/deutsch"))
  105.             )
  106.                 )
  107.     )
  108. )
  109.  
  110. (complete 100)
  111.